/* sobw.t  sob_det Sales Order/Quote Configuration Write Trigger              */
/*Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                         */
/*All rights reserved worldwide.  This is an unpublished work.                */
/* $Revision: 1.3 $                                                           */
/*V8:ConvertMode=NoConvert                                                    */
/******************************************************************************/
/* Revision: 1.1        BY: Jean Miller          DATE: 06/06/02  ECO: *P07T*  */
/* Revision: 1.2        BY: Jean Miller          DATE: 06/13/02  ECO: *P082*  */
/* $Revision: 1.3 $     BY: Jean Miller          DATE: 08/01/02  ECO: *P0CL*  */
/******************************************************************************/

TRIGGER PROCEDURE FOR WRITE OF sob_det OLD BUFFER old_sob_det.

{mfdeclre.i}

define variable l-type as character no-undo.

/* Track Capacity Units */
if new sob_det and
  (old_sob_det.sob_nbr  <> sob_det.sob_nbr  or
   old_sob_det.sob_line <> sob_det.sob_line)
then do:

   if sob_det.sob_nbr begins "qod_det" then
      l-type = "QUOTE".
   else
      l-type = "ORDER".

   {lvucap.i &TABLE="sob_det" &QUALIFIER="l-type"}

end.
